home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / CloneScreen / testclone.e < prev   
Encoding:
Text File  |  1994-10-06  |  651 b   |  22 lines
  1. -> test de clonage d'écran
  2.  
  3. OPT OSVERSION=37
  4.  
  5. MODULE 'tools/clonescreen'
  6.  
  7. PROC main() HANDLE
  8.   DEF screen=NIL,font=NIL,win=NIL,xsize,ysize,depth
  9.   screen,font:=openclonescreen('Workbench','Mon Workbench Cloné')
  10.   win:=backdropwindow(screen)
  11.   depth,xsize,ysize:=getcloneinfo(screen)
  12.   EasyRequestArgs(win,[20,0,'Sur mon propre écran + fenêtre Backdrop!',
  13.                             'Dimensions de l'écran:\dx\dx\d',
  14.                             'Continue'],0,[xsize,ysize,depth])
  15. EXCEPT DO
  16.   closeclonescreen(screen,font,win)
  17.   SELECT exception
  18.     CASE "SCR"; WriteF('Pas d''écran!\n')
  19.     CASE "WIN"; WriteF('Pas de fenêtre!\n')
  20.   ENDSELECT
  21. ENDPROC
  22.